home *** CD-ROM | disk | FTP | other *** search
/ Deep Throat Girls 5 / Deep Throat Girls 5.iso / mac / MAC.Dir / 00033_keyboard.ls < prev    next >
Encoding:
Text File  |  1997-02-09  |  2.9 KB  |  103 lines
  1. on keyboard
  2.   global shipx, fire1, fire2, fire3, fire4, key, shipcast, done, freeze, next, fire1x, fire1y, fire2x, fire2y, fire3x, fire3y, fire4x, fire4y, men
  3.   if shipcast = 1 then
  4.     if the optionDown = 1 then
  5.       set shipx to shipx + 6
  6.     end if
  7.     if the controlDown = 1 then
  8.       set shipx to shipx - 6
  9.     end if
  10.     if shipx < 20 then
  11.       set shipx to 20
  12.     end if
  13.     if shipx > 572 then
  14.       set shipx to 572
  15.     end if
  16.     when keyDown then keyput
  17.     if key = 49 then
  18.       set key to 0
  19.       if fire1 = 0 then
  20.         puppetSound(1, "LASER")
  21.         set fire1 to 1
  22.         set fire1x to shipx
  23.         set fire1y to 315
  24.       else
  25.         if fire2 = 0 then
  26.           puppetSound(1, "LASER")
  27.           set fire2 to 1
  28.           set fire2x to shipx
  29.           set fire2y to 315
  30.         else
  31.           if fire3 = 0 then
  32.             puppetSound(1, "LASER")
  33.             set fire3 to 1
  34.             set fire3x to shipx
  35.             set fire3y to 315
  36.           else
  37.             if fire4 = 0 then
  38.               puppetSound(1, "LASER")
  39.               set fire4 to 1
  40.               set fire4x to shipx
  41.               set fire4y to 315
  42.             end if
  43.           end if
  44.         end if
  45.       end if
  46.     end if
  47.   end if
  48.   if shipcast = 2 then
  49.     set the castNum of sprite 40 to 13
  50.     set the locH of sprite 40 to shipx
  51.     set the locV of sprite 40 to 340
  52.     set shipcast to 1 + shipcast
  53.   else
  54.     if shipcast = 3 then
  55.       set the castNum of sprite 40 to 14
  56.       set the locH of sprite 40 to shipx
  57.       set the locV of sprite 40 to 340
  58.       set shipcast to 1 + shipcast
  59.     else
  60.       if shipcast = 4 then
  61.         set the castNum of sprite 40 to 15
  62.         set the locH of sprite 40 to shipx
  63.         set the locV of sprite 40 to 340
  64.         set shipcast to 1 + shipcast
  65.       else
  66.         if shipcast = 5 then
  67.           set the castNum of sprite 40 to 14
  68.           set the locH of sprite 40 to shipx
  69.           set the locV of sprite 40 to 340
  70.           set shipcast to 1 + shipcast
  71.         else
  72.           if shipcast = 6 then
  73.             set the castNum of sprite 40 to 13
  74.             set the locH of sprite 40 to shipx
  75.             set the locV of sprite 40 to 340
  76.             set shipcast to 1 + shipcast
  77.           else
  78.             if shipcast > 6 then
  79.               if men = 1 then
  80.                 set the castNum of sprite 40 to 21
  81.                 set the locH of sprite 40 to 296
  82.                 set the locV of sprite 40 to 260
  83.               else
  84.                 set the castNum of sprite 40 to 3
  85.                 set the locH of sprite 40 to 296
  86.                 set the locV of sprite 40 to 500
  87.               end if
  88.               set shipcast to 1 + shipcast
  89.               if shipcast = 60 then
  90.                 set done to 1
  91.               end if
  92.             else
  93.               set the castNum of sprite 40 to shipcast
  94.               set the locH of sprite 40 to shipx
  95.               set the locV of sprite 40 to 340
  96.             end if
  97.           end if
  98.         end if
  99.       end if
  100.     end if
  101.   end if
  102. end
  103.